home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / DOpus_Install / MWB8 / Install < prev    next >
Text File  |  1996-08-11  |  6KB  |  191 lines
  1. ; $VER: MWB_DOpus_8_Install 1.0 (11.8.96)
  2. ; This Installer script written by Leo Davidson.
  3.  
  4. ;*****************************************************************************
  5.  
  6. ;- Welcome -------------------------------------------------------------------
  7.  
  8. (welcome "MWB_DOpus v8.0")
  9.  
  10. ;- Introductory message ------------------------------------------------------
  11.  
  12. (message "MWB_DOpus v8.0\n"
  13.          "by Trevor Morris Leo Davidson\n\n"
  14.          "MagicWorkbench toolbar icons and backdrops "
  15.          "for Directory Opus 5.5 (and other programs).")
  16.  
  17. ;- Set where to do the install to --------------------------------------------
  18.  
  19. (set #target "DOpus5:")
  20. (set @default-dest #target)
  21.  
  22. (if (not (= (exists #target (noreq)) 2))
  23.     (abort "Directory Opus 5.5 has not been (properly) installed.\n\n"
  24.            "You must install it before installing MWB_DOpus.")
  25. )
  26.  
  27. ;- Back-up the old Images drawer and copy new images -------------------------
  28.  
  29. (if (askbool (prompt "The old \"Images\" drawer will be backed-up and the new "
  30.                      " toolbar images will be copied to the correct place.")
  31.              (choices "Proceed"
  32.                       "Skip this part")
  33.              (default 1)
  34.              (help "This part installs all the toolbar images.")
  35.     )
  36.     (
  37.     (if (not (rename (tackon #target "Images") (tackon #target "Images1")
  38.                      (prompt "The old \"DOpus5:Images\" drawer will be backed-up as "
  39.                              "\"DOpus5:Images1\".")
  40.              )
  41.         )
  42.         (abort "Couldn't rename \"DOpus5:Images\" to \"DOpus5:Images1\".")
  43.     )
  44.     (copyfiles (source "Images")
  45.                (dest (tackon #target "Images"))
  46.                (all)
  47.                (optional force)
  48.     )
  49.     )
  50. )
  51.  
  52. ;- Copy the new icons (for programs, files, etc) -----------------------------
  53.  
  54. (if (askbool (prompt "The old DOpus5 file icons will be replaced by "
  55.                      "MagicWorkbench versions.\n\n"
  56.                      "Note: In case you have set some tooltypes in it, "
  57.                      "the main DirectoryOpus icon will be left alone. You "
  58.                      "should replace it manually as described in the help "
  59.                      "guide which is installed later.")
  60.              (choices "Proceed"
  61.                       "Skip this part")
  62.              (default 1)
  63.              (help "This part installs all the program and file icons.")
  64.     )
  65.     (
  66.     (copyfiles (source "DOpus_Icons")
  67.                (dest #target)
  68.                (all)
  69.                (optional force)
  70.     )
  71.     )
  72. )
  73.  
  74. ;- Copy the Help guide -------------------------------------------------------
  75.  
  76. (if (askbool (prompt "An AmigaGuide about MWB_DOpus 8, including hints & tips "
  77.                      "will be copied to \"DOpus5:Help\".")
  78.              (choices "Proceed"
  79.                       "Skip this part")
  80.              (default 1)
  81.              (help "This part installs the help guide.")
  82.     )
  83.     (
  84.     (copyfiles (source "Help/MWB_DOpus8_Help.guide")
  85.                (dest (tackon #target "Help"))
  86.                (infos)
  87.                (optional force)
  88.     )
  89.     )
  90. )
  91.  
  92. ;- Copy the fonts ------------------------------------------------------------
  93.  
  94. (if (askbool (prompt "Some extra fonts will be copied to \"Fonts:\".\n"
  95.                      "They are not essential to use MWB_DOpus.\n\n"
  96.                      "These fonts are:\n"
  97.                      "\"P0T-NOoDLE\",\n"
  98.                      "\"P0T-Prop\",\n"
  99.                      "\"PolarSmall\", and,\n"
  100.                      "\"PolarSmall-Prop\".")
  101.              (choices "Proceed"
  102.                       "Skip this part")
  103.              (default 1)
  104.              (help "This part installs some extra fonts.")
  105.     )
  106.     (
  107.     (copyfiles (source "Fonts")
  108.                (dest "Fonts:")
  109.                (all)
  110.                (optional force)
  111.     )
  112.     )
  113. )
  114.  
  115. ;- Copy the backdrops (ask where first) --------------------------------------
  116.  
  117. (if (askbool (prompt "You will now be asked where you want to install "
  118.                      "the backdrop pictures, or you can \"skip\".")
  119.              (choices "Proceed"
  120.                       "Skip this part")
  121.              (default 1)
  122.              (help "This part installs some backdrop pictures.")
  123.     )
  124.     (
  125.     (copyfiles (source "Backdrops")
  126.                (dest (askdir (prompt "Select where to install the backdrops:")
  127.                              (help @askdir-help)
  128.                              (default "Sys:Prefs/Presets")
  129.                )     )
  130.                (all)
  131.                (optional force)
  132.     )
  133.     )
  134. )
  135.  
  136. ;- Copy the Index files (ask where first) ------------------------------------
  137.  
  138. (if (askbool (prompt "You will now be asked where you want to install "
  139.                      "the index pictures which make it easy to find "
  140.                      "particular icons in the collection, "
  141.                      "or you can \"skip\".")
  142.              (choices "Proceed"
  143.                       "Skip this part")
  144.              (default 1)
  145.              (help "This part installs the index pictures.")
  146.     )
  147.     (
  148.     (copyfiles (source "Index")
  149.                (dest (askdir (prompt "Select where to install the index "
  150.                                      "pictures:")
  151.                              (help @askdir-help)
  152.                              (default (tackon #target "Help"))
  153.                )     )
  154.                (all)
  155.                (optional force)
  156.     )
  157.     )
  158. )
  159.  
  160. ;- Copy the Disk icons (ask where first) -------------------------------------
  161.  
  162. (if (askbool (prompt "You will now be asked where you want to install "
  163.                      "some disk icons which you can use to replace your "
  164.                      "existing disk icons with if you want "
  165.                      "or you can \"skip\".\n\n"
  166.                      "You'll have to do the replacements yourself using "
  167.                      "IconEdit (comes with Workbench) or MUIReIcon "
  168.                      "(on Aminet).")
  169.              (choices "Proceed"
  170.                       "Skip this part")
  171.              (default 1)
  172.              (help "This part installs some disk icons.\n"
  173.                    "Your existing icons will not be replaced.")
  174.     )
  175.     (
  176.     (copyfiles (source "Disk_Icons")
  177.                (dest (askdir (prompt "Select where to install the disk "
  178.                                      "icons:")
  179.                              (help @askdir-help)
  180.                              (default "sys:prefs/presets")
  181.                )     )
  182.                (all)
  183.                (optional force)
  184.     )
  185.     )
  186. )
  187.  
  188. ;- All Done ------------------------------------------------------------------
  189.  
  190. (exit "Be sure to read the help guide in \"DOpus5:Help\" for more info.")
  191.